From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 28 Mar 2024 16:27:54 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-macs.el (list): Predefine predicate by hand
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2122
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=de9e913f9e2a1e01e5d091a553e98d75404a2246;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (list): Predefine predicate by hand
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 051cd992fc1..a84ef4a34b2 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3470,6 +3470,10 @@ Of course, we really can't know that for sure, so it's just a heuristic."
                  (keyword	. keywordp)   ;Would need `keyword-with-pos`.
                  (natnum	. natnump)    ;Subtype of fixnum & bignum.
                  (real		. numberp)    ;Not clear where it would fit.
+                 ;; This one is redundant, but we keep it to silence a
+                 ;; warning during the early bootstrap when `cl-seq.el' gets
+                 ;; loaded before `cl-preloaded.el' is defined.
+                 (list		. listp)
                  ))
   (put type 'cl-deftype-satisfies pred))